home *** CD-ROM | disk | FTP | other *** search
- 100 poke53280,0:poke53281,0
- 110 gosub1000
- 120 l$=""
- 140 print"[147]":fori=1to5:printtab(11)a$(i):next:ta=11
- 150 a=a+1:b=b+1:readpr$:ifa>9thenta=10
- 160 printleft$(l$,b+7)tab(ta)"[158]"a"[156]-"pr$
- 165 ifb=12then175
- 170 goto 150
- 175 ifa>=12thenrestore:a=0
- 190 printleft$(l$,24)tab(7)"[159](c) ion international inc"
- 200 printleft$(l$,21)tab(9)" return [146][158] or choose no.";
- 210 poke198,0:inputan$:an=val(an$):b=0
- 215 ifan$=""then140
- 225 restore:forch=1toan:readpr$:next
- 230 print"[147]":poke53280,0:poke53281,0
- 235 printleft$(l$,15)tab(10)"[156][204]oading "pr$"[144]"
- 240 print "load";chr$(34);pr$;chr$(34);",8,1"
- 250 print "run":print "[145][145][145][145][145][145][145][145][145]"
- 260 poke 631,13:poke 632,13:poke 198,2:end
- 500 data 64 bug rep,128 bug rep,lazy boot,music boot,swoop boot,got a match
- 510 data star strike,trackdown 64,trackdown vic,chess tour 128,shaker boot
- 520 data comal 64 boot
- 1000 a$(1)="[207][205][206][183][205][207][183][183][205][207][205] [207][205][207][205][207][205]"
- 1010 a$(2)="[180] [223][169] [146][180] [146][180] [223][146][180] [146][180] [146][180] "
- 1020 a$(3)="[180] [146][223][169] [146][180] [146][205] [180] [146][223][223] [146][180] [146][180] "
- 1030 a$(4)="[180] [146] [180] [146][180] [175][146][205][180] [146][205][223] [146][180] [146][180] "
- 1040 a$(5)="[205] [146] [205] [146][205] [146][205] [146] [205] [146][205] "
- 1100 return
-